
 
 '   T h e r e m i n o   A u t o m a t i o n   d e m o   p r o g r a m 
 
 
 
 '   B i s t a b l e   b u t t o n   t h a t   c h a n g e s   m u l t i p l e   s t a t e s 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   I N I T I A L I Z A T I O N S 
 
 B u t t o n   1   L a b e l   L e d C h a n g e 
 
 G o s u b   L e d O F F 
 
 V a r i a b l e   N u m e r i c   L E D   =   1 
 
 S t o p 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   F U N C T I O N S 
 
 L a b e l   L e d C h a n g e 
 
 	 S e l e c t   S l o t ( L E D ) 
 
 	 	 C a s e   0 
 
 	 	 	 G o s u b   L e d 3 0 % 
 
 	 	 C a s e   3 0 0 
 
 	 	 	 G o s u b   L e d 6 0 % 
 
 	 	 C a s e   6 0 0 
 
 	 	 	 G o s u b   L e d 1 0 0 % 
 
 	 	 C a s e   1 0 0 0 
 
 	 	 	 G o s u b   L e d O F F 
 
 	 E n d S e l e c t 
 
 R e t u r n 
 
 
 
 L a b e l   L e d O F F 
 
 	 S l o t   L E D   =   0 
 
 	 B u t t o n   L e d C h a n g e   T e x t   " L E D   i s   O F F " 
 
 R e t u r n 
 
 
 
 L a b e l   L e d 3 0 % 
 
 	 S l o t   L E D   =   3 0 0 
 
 	 B u t t o n   L e d C h a n g e   T e x t   " L E D   i s   3 0 % " 
 
 R e t u r n 
 
 
 
 L a b e l   L e d 6 0 % 
 
 	 S l o t   L E D   =   6 0 0 
 
 	 B u t t o n   L e d C h a n g e   T e x t   " L E D   i s   6 0 % " 
 
 R e t u r n 
 
 
 
 L a b e l   L e d 1 0 0 % 
 
 	 S l o t   L E D   =   1 0 0 0 
 
 	 B u t t o n   L e d C h a n g e   T e x t   " L E D   i s   1 0 0 % " 
 
 R e t u r n 
 
 
 
 
 
 